#!/usr/local/bin/perl -w
# Parsing JCL of GB, NC, CI ...
use strict;
require JCL;


#my $dir = '/home/ftpuser/0804/';
#my $file = 'GBD020';
my $today;
my $hhmm = &JCL::date_time('hhmm');
if ($hhmm <= 830) {
  $today = &JCL::date_time('yesterday');
  print "yesterday=$today\n";
}
else {
  $today = &JCL::date_time('today');
  print "today=$today\n";
}

=head
my ($released_ref, $releasing_ref) = &JCL::get_released_releasing($dir, $file);
print "==released============\n";
while (my ($key, $value) = each %$released_ref) {

  print "$key released by $value\n";
} 

print "==releasing===========\n";
while (my ($key, $value) = each %$releasing_ref ) {
   
  print "$key releasing $value\n";
} 

